%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
strSQL = "SELECT TOP 1 us1 FROM about_us_info"
SET rs = Conn.Execute(strSQL)
If rs.BOF AND rs.EOF Then
AboutUs1 = ""
Else
AboutUs1 = rs("us1")
End If
Call rsClose()
%>
<%
strSQL = "SELECT TOP 1 us2 FROM about_us_info"
SET rs = Conn.Execute(strSQL)
If rs.BOF AND rs.EOF Then
AboutUs2 = ""
Else
AboutUs2 = rs("us2")
End If
Call rsClose()
%>
<%
id = Trim(Request.QueryString("id"))
If id ="" Then
id = 1
End If
strSQL = "SELECT TOP 1 * FROM lawinfo WHERE [ID] = " & id
SET rs = Conn.Execute(strSQL)
If rs.BOF AND rs.EOF Then
Response.Redirect("index.asp")
Response.End()
Else
Title = rs("L_NAME")
PST = rs("L_POSITION")
WA = rs("L_WT")
MEMO = rs("L_DETAIL")
SMEMO = rs("homeinfo")
PIC = rs("L_PIC")
End If
Call rsClose()
strSQL = "UPDATE LAWINFO SET L_Count = L_Count + 1 WHERE [ID] = " & id
Conn.Execute(strSQL)
%>
<%strSQL = "SELECT * FROM LINK_LIST where P_TYPE=0 order by id"
SET rs = Conn.Execute(strSQL)
If Not (rs.BOF AND rs.EOF) Then
Do While Not rs.EOF
%>
"><%=rs("P_Name")%> |
<%
rs.MoveNext
Loop
End If
Call rsClose()
%>